test_that("stringToRaw works", {
    key_p <- "EB2A38568661887FA180BDDB5CABD5F21C7BFD59C090CB2D245A87AC253062882729
        293E5506350508E7F9AA3BB77F4333231490F915F6D63C55FE2F08A49B353F444AD3993CACC02D
        B784ABBB8E42A9B1BBFFFB38BE18D78E87A0E41B9B8F73A928EE0CCEE1F6739884B9777E4FE9E88A
        1BBE495927AC4A799B3181D6442443"
    x = stringToRaw(key_p)
    expect_equal(128, length(x))
})
